﻿Public Class CleanProp
    Implements System.ComponentModel.ICustomTypeDescriptor

    Public Function GetAttributes() As System.ComponentModel.AttributeCollection Implements System.ComponentModel.ICustomTypeDescriptor.GetAttributes
        Return System.ComponentModel.TypeDescriptor.GetAttributes(Me, True)
    End Function
    Public Function GetClassName() As String Implements System.ComponentModel.ICustomTypeDescriptor.GetClassName
        Return System.ComponentModel.TypeDescriptor.GetClassName(Me, True)
    End Function
    Public Function GetComponentName() As String Implements System.ComponentModel.ICustomTypeDescriptor.GetComponentName
        Return System.ComponentModel.TypeDescriptor.GetComponentName(Me, True)
    End Function
    Public Function GetConverter() As System.ComponentModel.TypeConverter Implements System.ComponentModel.ICustomTypeDescriptor.GetConverter
        Return System.ComponentModel.TypeDescriptor.GetConverter(Me, True)
    End Function
    Public Function GetDefaultEvent() As System.ComponentModel.EventDescriptor Implements System.ComponentModel.ICustomTypeDescriptor.GetDefaultEvent
        Return System.ComponentModel.TypeDescriptor.GetDefaultEvent(Me, True)
    End Function
    Public Function GetDefaultProperty() As System.ComponentModel.PropertyDescriptor Implements System.ComponentModel.ICustomTypeDescriptor.GetDefaultProperty
        Return System.ComponentModel.TypeDescriptor.GetDefaultProperty(Me, True)
    End Function
    Public Function GetEditor(ByVal editorBaseType As System.Type) As Object Implements System.ComponentModel.ICustomTypeDescriptor.GetEditor
        Return System.ComponentModel.TypeDescriptor.GetEditor(Me, editorBaseType, True)
    End Function
    Public Function GetEvents() As System.ComponentModel.EventDescriptorCollection Implements System.ComponentModel.ICustomTypeDescriptor.GetEvents
        Return System.ComponentModel.TypeDescriptor.GetEvents(Me, True)
    End Function
    Public Function GetEvents(ByVal attributes() As System.Attribute) As System.ComponentModel.EventDescriptorCollection Implements System.ComponentModel.ICustomTypeDescriptor.GetEvents
        Return System.ComponentModel.TypeDescriptor.GetEvents(Me, attributes, True)
    End Function
    Public Function GetProperties() As System.ComponentModel.PropertyDescriptorCollection Implements System.ComponentModel.ICustomTypeDescriptor.GetProperties
        Dim props As System.ComponentModel.PropertyDescriptorCollection
        props = System.ComponentModel.TypeDescriptor.GetProperties(Me, True)
        For Each P As System.ComponentModel.PropertyDescriptor In props

        Next
        Return Nothing
    End Function
    Public Function GetProperties(ByVal attributes() As System.Attribute) As System.ComponentModel.PropertyDescriptorCollection Implements System.ComponentModel.ICustomTypeDescriptor.GetProperties
        Return System.ComponentModel.TypeDescriptor.GetProperties(Me, attributes, True)
    End Function
    Public Function GetPropertyOwner(ByVal pd As System.ComponentModel.PropertyDescriptor) As Object Implements System.ComponentModel.ICustomTypeDescriptor.GetPropertyOwner
        Return Me
    End Function

End Class
